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RRR FR 
RRR RRR 
RRR RRR 
RRR RRR 
RRR RRR 
RRR RRR 
RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRR = RRR 

RRR = RRR 

RRR = RRR 

RRR RRR 
RRR RRR 
RRR RRR 
RRR RRR 
RRR RRR 
RRR RRR 


a a a a a a a a a a tt a st st st st tt 
St st st St St Ht 
Att ta 4 tt SH St HH Ht tt 
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P P 


AAAAAAAAA 

AAAAAAAAA 

AAAAAAAAA 
ARR 
AAA AAA 
AAA AAA 
AAA AAA 
AAA AAA 
A AAA 
AAA AAA 
AAA AAA 
AAA AAA 
AAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAA 
AAA AAA 
AAA AAA 
AAA AAA 
AAA AAA 
AAA AAA 
AAA AAA 
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DDDDDDDDDDDD 

DDDDDDDDDDDD 

DDD DOD 
DDD DOD 
DOD DOD 
DOD DOD 
DDD DDD 
DDD DOD 
DDD DOD 
DDD DDD 
DDD DDD 
DOD DDD 
DDD DOD 
DDD DOD 
DOD DOD 
DDD DDD 
DOD DDD 
DDDDDDDDDDDD 

DDDDDDDDDDDD 


DDDDDDDDDDDD 
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cc TT DD DD vv VV MMMM MMMM «SS PP PP SE cc 

cc TT DD DD VV VV MM MM MM OSS PP Pe «UE cc 

cc TT DD DD vv VV MM MM MM SS PP EE cc 

cc TT DD DD VV VV MM SSSSSS PPPPPPPP EEEEEEEE cc 

cc TT DD DD VV VV MM MM SSSSSS PPPPPPPP EEEEEEEE cc 

cc TT DD DD VV VV MM MM SS PP EE cc 

cc TT DD DD VV VV MM MM SS PP EE cc 

cc TT DD DD vv VV MM MM SS PP EE cc cove 

cc TT DD DD ve VV MM MM SS PP EE cc cees 
cccccccc TT DDDDDDDD VV MM MM SSSSSSSS PP EEEEEEEEEE cccccccc cece 
cccccccc TT DDDDDDDD VV MM MM SSSSSSSS PP EEEEEEEEEE ccccccce eeee 

LL IIIII] SSSSSSSS 

LL L111] SSSSSSSS 

LL I] SS 

LL II SS 

LL I] SS 

LL I] SS 
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LL I] SS 

LL I] SS 
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CTDVMSPEC = CTDRIVER VMS specific protocol extensi 16-SEP-1984 5:27 VAX/VMS Macro v04-00 p 
V04=000 , F ‘ gree ebe BSifaics FateND smeicfovecpce.man:1 2% 


- TITLE A'S ba 183 - CTDRIVER VMS specific protocol extensions 
“IDENT "v04=000" 

zr “ a 4 1 

“PRINT CTVMSMODE being assembled WITH debug code 


ia PRINT 0 ; CTVMSMODE being assembled WITHOUT debug code 


PARRA RAARASAAAAARAALSAALALAAAL ELSES LESSEE SESE SEE SRS EEE ESE REE REESE SESE SESS 


COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND gd Lt 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
ooePOnaT itn. NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


SOSoCCOCOCSCOOOCOCOOOCOSOOSOOOOOOOOOOOOoOOo 
COOoOCOCCOSCOCOOCOCOCOCOOCOOOOOOOOOSoOS 


fn ae ne en ne ee ee eee ee we we we ww wl w lan olan lala lal ololololololelolelolololololololololo a) 


® * 
® ® 
* ® 
® ® 
® ® 
® ® 
® ® 
® ® 
® ae 
® + 
:® TRANSFERRED. : 
® * 
® ® 
® * 
® a 
** * 
*® * 
** ® 
** * 
:* 7 
** ® 


LARBRASAASAALARAAAAAASALALELASAASALE SESE SESE ERE REE E RRR R ERS R SERS ASE REESE SY 


Bete Se Ge Ge Ge Ge Ge Ge Ge Fe Se Ge Be Ge Ge Ge Ge Ge Ge Be Ge Ge Ge 


+ 
+ 


FACILITY: 
VAX/VMS remote terminal driver 
ABSTRACT: 


This module contains cede to format and decode VMS to VMS specific 
protocol used with the CTERM protocol. 


ENVIRONMENT: 


AUTHOR: Jake VanNoy, CREATION DATE: 30-Dec-1982 
MODIFIED BY: 


v03-002 JLV0290 Jake VanNoy 28-JUL-1983 
Add upline broadcasts. 
v03-001 JLV0262 Jake VanNoy 26-MAY-1983 


OOOO OOOCOOSOOOOOOSOSOSOSOOOOOSSOOSOOSOSOSOSOOOOCOOCOOOOOCOOCOOOOOOOOOOOOOOO 


SOOoooooooooooooooooooooooooosoo 


SOOoOoCoOoCOoooOooooooooOoOoooOoooOooOooSe 
NOUS ROOD NAUE WIN O ODNAU ES WIN  O OONOAU EWN OC OONAU EW OO ONOU Ew 


PVPS FUE BS BB BBE EE EAA AANA PPOPONPONYNINININDY 2 OO OOO 


Add missing branch in post processing. 
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you~000 " . : gree 1 3be Tae RTPAD.SRCICTDVMSPEC.MAR; 1 . i) 


1 
60 ° 
| ] ~SBTTL DECLARATIONS 
8g 3; INCLUDE FILES: 
8 64 ; 
0 65 
00 ¢ SDDBDEF ; device data block 
000 6 SIRPDEF ; 1/0 request packet 
000 68 STSADEF ; cterm protocol — 
$88 4 STT2DEF ; for DCL bit hacking 
0 SUCBDEF ; unit control block — 
0000 71 STTYUCBDEF 3; terminal UCB extension 
44 ie 
000 73 ; MACROS: 
0000 74 ; 
0000 75 
0000 76 ; 
0000 77 ; EQUATED SYMBOLS: 
0000 78 ; 
0000 79 
00000000 0000 80 P1 = 0 
00000004 0000 81 P2 = 4 
00000008 0000 Ht P3 = 8 
0000000C 0000 83 P4 = 12 
00000010 0000 84 PS = 16 
00000014 0000 85 P6 = 20 
0000 86 
00000000 Hh -PSECT $$$115_DRIVER,LONG 
89 ; 
+ 3 OWN STORAGE: 
92 


ee 


a a Se he: a ee ; 
6 | 

MS specific protocol svtaned 16-SEP-1984 5:27 VAX/VMS Ma v04-00 Pp cy 

DE - Pee cket VMS SET MODE -SEP=-1984 Z $8 $2: 743 RTPAD.SRC CTDVMSPEC.MAR: 1 “ (3) | 


~-SBTTL CT_VMS_SETMODE = Packet VMS SET MODE 


oOo 
“— 
< 
zo 
ww 


ODoOooooooooooooooooooo°oo 
SOoOSoOOoOCOOCOOOOCOOOOOOSOSOSOSSS 1 


+ 
ca 


FUNCTIONAL DESCRIPTION: 
A mode message #10 is formatted with generic QI0 format. 


CALLING SEQUENCE: 
BSBw CT_VMS_SETMODE 


INPUT PARAMETERS: 


R1 = address of characteristics buffer 
: - sense of characteristics buffer (8 or 12) 
R5 = UCB 
IMPLICIT INPUTS: 
NONE 


OUTPUT PARAMETERS: 


tag Bese 


DS BBE EEE EE FANNIN AAAI IDS PIPUDINPININPININID 2 9 OS QOD OOOCOOOOOWOOOWwOO 
SODWNA NEW OS OD NAU EWN SO OD NAU EWN 0 OO NOAUE WN OOO NAUSWWN—OOONOAUS 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
: 
i464 : R2 - address of byte after message 
0000 1 IMPLICIT OUTPUTS: 
0000 1 NONE 
0000 1 
0000 1 
0000 1 
0000 «1 
0000 1 SIDE EFFECTS: 
0000 1 NONE 
0000 1 
0000 1 -- 
0000 1 
0000 1 CT_VMS_SETMODE:: 
0000 1 
59 51 7D Q000 1 MOVa R1,R9 e R1,R2 to R9,R10 
51 00000064 8F D0 0003 1 MOVL a<CTPSw_ VMS PLEN*<Sec6+45o>- RI : overhead size 
51 5A co 000A 1 ADDL  R10,R1 ; plus 8 or 12 
FFFO* 0 B04) ! BSBW FDT_ALLOC_MESSAGE ; Get a CTP 
09 «98 o10 1 MOVZBW errost BD 
26 A2 01 1 CTP$B PRO “ASGTYPE(R2) ; Set mode message 
OF 9B QOO14 1 MOVZBW ACTPSC tt 
2A A2 Bog 1 CTPS$B ASGTYPECR j ; Set VAX generic qio message 
F 90 901 1 MOVE #CTPSC_MT_VMSQIO | 
0000'C O1A 1 IRPSB_CT_RESPTYPE(R3) ; Mark as VMS Q10 message 
SO A dO 830 1 MOVL IRP$L_SEQNUM(R3) ,- 
¢5 A 1 CTPSL_VMS REQ D(R2) ; Set response from ser | 
8A D4 00 1 CLRL IRPS$L_-MEDTA(RS) ; but no return data address (10SB only) 
0 a3 B80 1 MOVW  IRPSWTFUNC(R3),- | 
0 Ag 8 1 CTPSW"VMS FUNC (R2) ; Set qio function code 
50 2A 9E ; ; : MOVAB CTPS$WVMS-PLEN(R2),RO ; Address of first parameter 
OcE 1 : Do P1 


: 
I 6 
CTOVMSPEC = CTDRIVER VMS specific protocol extensi 16-SEP-1984 02:25:27 VAX/VMS Macro v04-00 Page 4. 
v04-000 CT_VMS_SETMODE se acket MS SET MODE Set bg 42 ee FRIPAD SRe CTDVMSPEC .MAR; 1 . (2) | 
—E 151 : 
9 SA OB ; 1 : MOvw R10, (RO)+ ; Length 
oi 6 1 MOVW  &CTPSM_VMS_REF,(RO)+  ; Pass by reference 
0 1 8 4 132 MOVW #1, (ROY? 3 Pl 
9 69 7D 7 155 MOVa = (R9), (RO) + : first 8 bytes 
40 A 89 7D A 128 mMOVQ (R9)+ SEO DEVELASS (RS? copy into UCB 
SA OC)CtéOT ; 15 CMPL =s #12, RA : Is there 12? 
0 1 04 158 BNEQ 20$ : Branch if not 
80 69 OD 043 159 MOVL (RO), (RO)+ ; Last 4 bytes 
48 AS 69 DO 0046 160 MOVL (R9) ,UCBSL_DEVDEPND2(R5); copy into UCB 
004A 161 20$: 
SPAN 196 $ 
QO4A 16 : Do P2 
004A 164 ; 
80 04 DO O04A 165 MOVL #4,(RO)+ ; Length 
80 02 860 004D 166 MOVW #2, (R0)+ 3 P2 
80 SA D0 0050 167 MOVL  R10,(RO)+ : 8 or 12 
005 168 3 
005 169 3: Do P3 
005 170 : 
80 04 Dd 005 171 MOVL #4,(RO)+ : Length 
80 03 B60 0056 1% MOVW #3, (RO)+ 7 P3 
80 O08 AC 00 0059 17 MOVL P3(AP),(RO)+ 3 parameter 
005D 174 ; 
005D 175 3; Do P4 
005D 176 : 
80 04 dO O005D 177 MOVL #4,(RO)+ ; Length 
80 04 B80 p068 178 MOVW #4, (RO)+ 3 P4 
80 OC AC 00 006 179 MOVL P4(AP),(RO)+ ; parameter 
0067 180 ; 
0067 «181 : Do PS | 
0067 18 : 
80 04 DO 0067 18 MOVL #4,(RO)+ ; Length 
80 05 BO QO06A 184 MOVW #5,(RO)+ : PS 
80 10AC 00 Oees 132 MOVL PS(AP), (RO)+ 3 parameter 
52 50 00 0071 #187 MOVL RO,R2 ; Set address of next byte 
05 0074 #42188 RSB : return 


CTDVMSPEC - CTDRIVER V 
v04-000 


pec 
CT_VMS_SENSE 


speci C 
DE - P 


proneegl,gztens! "GcSERT9BG 83:25:27 YAN/YNS Efovnspec.mar:1 "29° (3) 
-SBTTL CT_VMS_SENSEMODE = Packet VMS SENSE MODE 

++ 

FUNCTIONAL DESCRIPTION: 

A VMS specific cterm message is formatted with generic Q10 format. 


CALLING SEQUENCE: 
BSBW  CT_VMS_SENSEMODE 


INPUT PARAMETERS: 


| 
eee 


Ri = address of characteristics buffer 
~ - penath of characteristics buffer (8 or 12) 
RS = UCB 
IMPLICIT INPUTS: 
NONE 


OUTPUT PARAMETERS: 

R2 - address of byte after message 
IMPLICIT OUTPUTS: 

NONE 


COMPLETION CODES: 
NONE 


SIDE EFFECTS: 
NONE 


CT_VMS_SENSEMODE: : 


Oyo abe ae ial? heals esh ahah sh ah esh sla lealealealealealealesie ee ee ew ww ww we) 
BEEBE PAN WIWIWIWIWIIWIAIRIDIPININPINININININS 4 2 OO SS DOO DOOOOOCOCOWOOOOOOOOOUOONO OM 
BIE AD 2 O OODNAUES UN $0 ODNAUE WN 0 OO NAME WIN 0 OONOAOU EWN O OONOU SW oO 


PIPDPIMINIPNININIPNYNPINIPYNIPYININPINIPINININIPYINIPIPNYININIPIPINIPININPINIPININININININININININ 2 2 PO OO O_O 


SOOCOCVOOSOOCGCOCOSO OOOO COS COO SCOS SOS GOO CCOCCOOCOOCOCOOOOO OOOO OOOOOoOO 
>>> te PN Ne tt beet EP RRR RRR RRR EEA ERE EEE DST | 


SOOSCCCOCOOOOCOSOOOOSOOSOOOSOOOSOSOSOOOOOSOOOOSOOOSOOOOCOOOOOOOoOOoOO 


ee: a. MOVQ R1,R9 ; Move R1,R2 to R9,R10 
51 00000046 8F 00 MOVL #<CTPSW_VMS_PLEN+<2*<6+45>> R1 ; overhead size 
51 SA CO ADDL  R10,R1 ; plus 8 or 12 
FF7B* 30 BSBW FDT_ALLOC_MESSAGE ; Get a CTP 
09 «698 MOVZBW #PROSC_DATA,- 
26 A2 CTP$B_PRO_MSGTYPE(R2) ; Set mode message 
OF 9B MOVZBW #CTPST_MT-VMSQIO,- 
2A A2 CTP$B_ASGTYPE (R25 ; Set VAX generic qio message 
OF 90 MOVB #CTPSC_MT_VMSQIO,=- 
0000'C3 f IRP$B_CT_RESPTYPE(R3) ; Mark as VMS QIO message 
50 AS —00 g MOVL IRP$L_SEGNUM(R3) ,- 
C ag CTPSL_VMS REQID(R2) ; Set response from server 
0A3 80 7 MOVW = [RPSWTFUNT(R3) ,- ' 
0 Ag A CTPSW_VMS_FUNC (RZ) ; Set qio function code 
50 2A 9E C MOVAB CTPSW_VMS_PLEN(R2),RO ; Address of first parameter 
6 ; Do P1 
0 : 


ok 


= CUDRIVE 
CT_VMS_S 


8 ing 


R_ VMS specific prot 
NSEMODE = Packet VM 


4 
4 
5 
5 
P) 
5 
5 
5 
5 
5 
5 
5 


AX/VMS Macro V04-00 
RTPAD.SRCJCTDVMSPEC.MAR; 1 


Length (not used in RTPAD***) 
Generate buffer in server, return data 


os 
MS_BUFFER,(RO)+ 


null data region 


WONAULSWN—OOOon 


; Set address of next byte 


= CTDRIVER VMS 
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CT_VMSQIO_MSG - 


andle Mode message -SEP-1984 


@ 
oa 


+ 
+ 


00 
4:43 (CRIPAD.SRCICTDVMSPEC .MAR; 1 
-SBTTL CT_VMSQIO_MSG = Handle Mode message 


FUNCTIONAL DESCRIPTION: 


CALLING SEQUENCE: 


SPOOR Do DOOD 


BSBW CT_VMSQI0_MSG 


INPUT PARAMETERS: 


PARAAPAAAAAOAAAO 


SN NNN NAA AAO om 
UE WIN O OONOU SE win 


R1 = CTP 
R3 - Net read IIRP 
RS - CT UCB 


IMPLICIT INPUTS: 
NONE 


OUTPUT PARAMETERS: 
NONE 


IMPLICIT OUTPUTS: 
NONE 


COMPLETION CODES: 
NONE 


SIDE EFFECTS: 
NONE 


_wN 
ANE NN OO OONOUS WOO 


000000000 0000000000000 00000000 


NOUS WN “OO OONOUS WN CO OON 


: 
3 
: 
: 
: 


4 M*QOOOOOOOOCOSO 


222 IRP one is assumed to be in order for reads, characteristics, 
2??? and input counts. All these packets have the FUNC bit set in the 
2??? queued IRP. The write packets can complete yt ag wre to all 
2??? these other types, and they do not have the FUNC bit set. Search 
2??? for the associated IRP: 
MODE_ERR: : 
ary RO 3 return error here... (***new 8-jun-83) 
CT_VMSQIO_MSG: : 
MOVAQ UCBSL_RTT_IRPFL(RS),R4 ; Look through the irps for ours 
MOVL R4,RO ; head of queue here 
MOVL (R4) ,R4 ; Link through chain 
CMPL ’ ; end of irps? : 
BEQL MODE _ERR : Yes, could not find it, hangup 
CMPB #CTPSC_MT_VMSQIO, - 


Nee 


CTDVMSPEC = CT 
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ow 


mM 6 
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-MSG = Handie Mode message “SEP-1984 05:14:43 (CRTIPAD.SRCICTDVMSPEC.MAR; 1 (4 


Oo 
“4 

t 
<= 
zo 


) 


IVE | 
10 | 
CE 18 RPSB_CT_RESPTYPE(R4) ; Does it match? 
F1 = 12 C 1 BNEQ 0$ ; Branch if no | 
ef Al D1 D 0 CMPL CTPSL_VMS_REQID(R1),- 
0 AG 0D 1 {ROSL_SEGRUACRS) 3; Sequence number match? 
EA 12 4 § BNEQ 0$ ; Loop if not 
007 4 : A match has been found | 
CAS DG Ope $ F CLRL —IRPSL_SVAPTE(R3) ; Buffer not in net iirp now 
2.83 BO OODA MOVW —-IRPSWTBCNT(R3) ,= | 
C AG ODD 8 IRPSL~10ST2(R4S : Set size of buffer read from net | 
33 4 OF OODF 9 REMQUE (R4) 3; Remove the CT irp from queue 
2c A 2 00 O0Ee 0 MOVL  R2,IRPSL_SVAPTE(R3) : stick buffer there 
OE6 ; ; Function as "interrupt routine’ 
0200 8F AB OOE6 a BISW #IRPSM TERMIO,~ 
A a OEA 3 IRP$W_STS(R3) ; Set terminal 1/0 
54 8A DO OOEC 6 MOVL RPSL_MEDIA(R3) ,R4 ; User buffer return address 
08 13 site 37 BEQL 0$ ; Branch if no data (10SB only) 
2 38 Al 9E OOF 38 MOVAB CTPST_VMS_RDATA(R1),(R2); Set address of data 
4 A2 54 D0 OOF6 39 MOVL R4,4(R2) ; Set user address to return data 
QOFA 341 to | 
OFA 4¢ > Set IRPS$W_BCNT | 
50 3C AS 3C OOFA 344° MOVZWL IRPSL_10ST2(R3) ,RO ; Set size of buffer read from net 
50 12 C2 OOFE 45 SUBL2 #<CTPST_VMS_RDATA- - ; 
0101 46 CTP$B_PRO_MSGTYPE>,RO ; Subtract out header size 
32 a3 0 «—550~—Ss« BSés«C61101 set CMPW RO, IRP$W_BCNT(R3) ; Compare to user buffer size 
04 1A 0105 48 BGTRU : If greater, leave user size 
32 AS 50 80 B15 re 80s MOVW RO, IRP$W_BCNT(R3) ; Set return size 
30 a1 7D 0108 351 " MOVQ.=s—s« CTPS$Q_VMS_10SB(R1),- | 
38 A3 Bie 326 IRP$L_IOST1(R ) ; Copy I0SB 
06 OO €ED gig $e CMPZV «6 #IRPSV_FCODE ,#IRPSS_FCODE,- | 
00000000'8F 20 A3 011 55 IRP$W_FUNC(RS) ,MIOS-SENSEMODE ; sense mode qio? 
02 12 OQ11A $28 BNEQ ; branch if not | 
OA 10 Baie $26 908 BSBB SENSE_SPAWN ; Set DCL bits *** | 
00000000'GF 16 O11E 359 a 1 G*COMSPOST : POST 1/0 
50 01 400 B1S3 60 MOVL #1,R0 3 success | 
05 0127 $0) RSB 3; return to FOUNDATION message code 
0128 62 | 
| 


CT 
vo 


Clovnsnec sence R VMS specific protocol cotaanl ot Sa tS 9 Oe 42:28 AX/VMS Macro Vv04-00 Page (2) 


IVE 
SPAWN Sense for spawn SEP- RTPAD.SRCJCTDVMSPEC .MAR; 1 
} rt: -SBTTL SENSE_SPAWN Sense for spawn 
1 § 3 Sense s actel characteristics bits for DCL spawn command. 
1 3 Return ; ts for ctrl/c ast, outofband ast and associated mailbox. 
1 8 : These bits may be reused later and are not for customer application 
: $3 : consumption. 
1 71 : inputs: 
1 i : ri => CTP 
i te 
1 75 SENSE_SPAWN: 
50 40 Al 9E 4 : 6 MOVAB CTPST_VMS_RDATA+8(R1),RO ; Set address of data 
60 0200 8F AA 012C 78 BICW #TT2$M_DCL_MAILBX,(RO) ; Reset mailbox bit 
60 A 8 4 4 pit UCBSL_AMB(RS) : any associated mailbox? 
60 0200 8 AB 0136 381 BISW #TT2$M_DCL_MAILBX,(RO) ;: 
0138 o 10$: 
05 0138 38 RSB 


7 

| 

| 

° 

; Yes, so set characteristic 
| 

| 

| 


AX/VMS Macro V04-00 
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mailbox, it dumps it up 


ere for delivery to the real 


The unit number and name of the device is fixed up in the packet first. 


If we are allowing mailbox 
to receive the messages 
we we have a mailbox 


Nope 
Then fix the unit number 
in the message 
and get the proper name of 
this device for the message 
including the count 


Copy the new name and 
obber the remainder of the 
syurt in the fixed length 

e 


restore the regs 


Save a few 

Size of the message 
Address of the message 
Mailbox ucb address 
Write the message to it 
and ignore the errors 


B 7 
CTDVMSPEC - crparyer VMS specific protocol extensi 16-SEP-19 725: 
v04-000 CT_VMS_BRDCST - Randle wl tne dump of br mi iaets 1 8g: 92:28 
! : 5 » SBTTL CT_VMS_BRDOCST = Handle upline dump of broadcast text 
¢ > CT_VMS_BRDCST - 
: : 3 ; Deliver broadcast message to the mailbox. 
13C 91 ; If RTPAD receives a broadcast message in it's 
13¢ 35 ; to the remote terminal and it gets 
13¢ 93 ; application broadcast mailbox. 
013¢ 9% ; 
013C¢ 95 ; 
4 C 89 3 
13C 97 ;- 
013C 98 
013C 39 CT_VMS_BRDCST:: 
013C 400 
38 48 AS 04 E1 013¢ 401 BBC #TT2$V_BROCSTMBX, - 
0141 10g UCBSL _BEVDEPND2(R (RS), 10$ 
60 AS DS 0141 40 TSTL UCBSL ~AMB(RS) 
33. 13 «601440 =| 404 BEQL 10$ 
2F Al 54 AS BO R126 405 MOVW yieey UNIT(RS5), = 
148 406 TPSW “BR vc ag li 
52 28 AS 00 0148 407 MOVL UCBs “DDB(RS), R2 
50 14 A2 04 00 EF O14F 408 EXTZV #0, » DDBST_NAME(R2), RO 
50 D6 0155 409 INCL 
0157 410 
3F BB 0157 411 PUSHR #*M<RO, R1, Ree R3, R4, R5> 
31A1 10 00 14a2 50 2¢C 0159 alg MOVCS RO, DDBST_NAME(R2), #0, 
0161 941 #CTP$S_BR-DEVNA 
0161 414 Tig BR_BEVNAME ( (R1) 
0161 415 POPR m<RO, R1, R2, R3, R4, RS> 
0163 416 
0163 417 PUSHR #*M<R3, 
0165 418 MOVZWL CTP$W sasesize oP 
0169 419 MOVA CTPSW_ _BR_M Rsgcope (at), 
0160 420 MOVL UCBSL AMB(RS), R5 
0171 421 JSB G*E EXESURTMAIL BOX 
0177 4 ¢ POPR #°M<R3, RG, 
0179 «4 
0179 424 10$ RSB 
O17A $52 
017A 426 .END 


CTOVMSPEC 
Symbol table 


t+ 
aa 

i 
mao T7,) 
mun 
oa 
=z 
wo 
a 
= 
«< 
vw 
mm 


v 
+4 
“” 
n” 
Cc 
2 


ESWRTMAILBOX 
T_ALLOC_MESSAGE 
S$” SENSEMODE 
RPS$B_CT_RESPTYPE 
RPSL 10ST 


TP 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
x 
D 
0 


PEEL EE Saaerrrrrrrrisereeit 
att 


PROSC_DATA 
SENSE” SPAWN 
TT2$M_OCL_MAILBX 
TT2$V_BRDCSTMBX 
UCBSB_ DEVCLASS 


DEPND2 
IRPFL 


UCBS$L_0DB 
UCBSL -DEVD 
UCBs RTT 
UCB$W_UNIT 


OOOO OCOOCOOOCOOOCOOCOCOCOO «+ 
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Phase Page faults CPU Time Elapsed Time 
Initialization 33 90:00 :00..06 00:00:00 .37 
Command processing 129 00:00:00. 00:00:03.75 
Pass 1 369 00:00:08.04 Re LS tS 
symm} table sort 0 00:00:01.44 0:00: 3°67 
Pass 2 79 00:00:01.57 00:00:03.74 
Symbol table output 7 00:00: 8.98 00:00:00.06 
Psect synopsis output 2 00:00:00.0 00:00:00.02 
Cross-reference output 0 00:00:00.00 ab Bes 
Assembler run totals 617 00:00:11.69 00:00:39.17 


The working set Limit was 1500 pages. 
There were 80 pages of symbol table space allocated to hold 1350 


13 pages of virtual memory were used to define 12 macros. 
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Macro library name 


“$255$DUA 8: SHRLIBIRER. MLB; 1 0 
“$255$DUA28: RTPAD. JARTPAD -MLB; 1 1 
~$255$DUA28: (SYS .0B -MLB; 4 
“$255$DUA28: SYS IBISTARLET. iB: 2 4 
TOTALS (all Libraries) 9 


1412 GETS were required to define 9 macros. 
There were no errors, warnings or information messages. 
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PSECT name Allocation PSECT No. Attributes 
$ 00000000 0. ) NOPIC USR 
$ 00000000 v3 1.) NOPIC  USR 

$$$115_DRIVER 0000017A 37 2.) NOPIC  USR 


67161 bytes (132 pages) of virtual memory were used to buffer the intermediate code. 
non-local and 7 local symbols. 
426 source Lines were read in Pass 1, producing 14 object records in Pass 2 
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